home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINWORDS / AMI_MCRO.ZIP / PRNBTCH2.SMM < prev   
INI File  |  1993-11-04  |  37KB  |  2,270 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     The new and improved batch printer....  This one also sums words and characters from each file J.B.
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     Call Backs, Global Arrays
  22.     noautorun
  23.     752484447
  24.     83
  25.     677020248
  26.     3555
  27.     12
  28.     1426
  29.     12412
  30.     36
  31.     38
  32.     Call Backs, Runlater, Global Aray
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Arial
  60.         240
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         216
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     6
  110.     1
  111.     1560
  112.     1
  113.     3075
  114.     1
  115.     4275
  116.     1
  117.     5655
  118.     1
  119.     7005
  120.     1
  121.     8580
  122.     0
  123. [lay]
  124.     Standard
  125.     513
  126.     [rght]
  127.         15840
  128.         12240
  129.         1
  130.         936
  131.         1440
  132.         1
  133.         1252
  134.         90
  135.         0
  136.         1
  137.         0
  138.         1
  139.         0
  140.         2
  141.         1
  142.         936
  143.         12150
  144.         9
  145.         1
  146.         720
  147.         1
  148.         1440
  149.         1
  150.         2160
  151.         1
  152.         2880
  153.         1
  154.         3690
  155.         1
  156.         4815
  157.         1
  158.         5925
  159.         1
  160.         7200
  161.         1
  162.         8535
  163.     [hrght]
  164.     [lyfrm]
  165.         1
  166.         11200
  167.         0
  168.         0
  169.         12240
  170.         1252
  171.         0
  172.         1
  173.         3
  174.         1 0 0 0 0 0 0
  175.         0
  176.         0
  177.         1
  178.     [frmlay]
  179.         1252
  180.         12240
  181.         1
  182.         1440
  183.         0
  184.         1
  185.         792
  186.         1440
  187.         0
  188.         1
  189.         0
  190.         1
  191.         1
  192.         0
  193.         1
  194.         1440
  195.         10800
  196.         0
  197.     [txt]
  198. <+B><:da<*!><* >>
  199.  
  200. <+B>Peyton McManus
  201.  
  202. <+B>Page <:P10,0,> of <:X3,16384;NumPages>11<:X~3,16384;NumPages>
  203.  
  204. <+B>
  205.  
  206. <+B>
  207.  
  208.  
  209. >
  210.     [frght]
  211.     [lyfrm]
  212.         1
  213.         13248
  214.         0
  215.         14400
  216.         12240
  217.         15840
  218.         0
  219.         1
  220.         3
  221.         1 0 0 0 0 0 0
  222.         0
  223.         0
  224.         2
  225.     [frmlay]
  226.         15840
  227.         12240
  228.         1
  229.         1440
  230.         90
  231.         1
  232.         14472
  233.         1440
  234.         0
  235.         1
  236.         0
  237.         1
  238.         1
  239.         0
  240.         1
  241.         1440
  242.         10800
  243.         0
  244.     [txt]
  245. <+B>Revision Number <:da<*&><* >>
  246.  
  247. <+B><:Da> <:b<* >>
  248.  
  249. <+B>
  250.  
  251. >
  252. [elay]
  253. [l1]
  254.     0
  255. [pg]
  256.     12
  257.     47 0 34 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  258.     94 0 24 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  259.     141 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  260.     188 0 32 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  261.     235 0 13 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  262.     282 0 40 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  263.     329 0 7 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  264.     376 0 34 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  265.     423 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  266.     468 0 40 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  267.     507 0 41 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  268.     508 0 10 1025 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  269. [edoc]
  270. <:#276,11214>Declare GetFlag(p1)
  271.  
  272. <:#276,11214>Declare SetFlag(p1,p2)
  273.  
  274. <:#276,11214>Declare SaveSettings(p1,p2,p3)
  275.  
  276. <:#276,11214>Define    SetTrue()        SetDlgITemText(Hdlg,%1,"True")
  277.  
  278. <:#276,11214>Define    SetFalse()        SetDlgITemText(Hdlg,%1,0)
  279.  
  280. <:#276,11214>Define GetItem()        GetDlgItemText(Hdlg,%1)
  281.  
  282. <:#276,11214>Define    GetPerm()        GetGlobalArray$("perm",%1)
  283.  
  284. <:#276,11214>Define    GetTemp()        GetGlobalArray$("temp",%1)
  285.  
  286. <:#276,11214>Define    Hour_up        67
  287.  
  288. <:#276,11214>Define    Minute_up        66
  289.  
  290. <:#276,11214>Define    Hour_down        57
  291.  
  292. <:#276,11214>Define    Minute_down        56
  293.  
  294. <:#276,11214>define    VK_LBUTTON        0x001
  295.  
  296. <:#276,11214>Define    EnableWindow()    DllCall("User,EnableWindow,AHA",%1,%2)
  297.  
  298. <:#276,11214>Define    SetFocus()        DllCall("User,SetFocus,HH",%1)
  299.  
  300. <:#276,11214>define    FindWindow()     DllCall("user,FindWindow,HCC", %1, %2)
  301.  
  302. <:#276,11214>define     isiconic(hWnd)     DLLCall("user,isiconic,HA", %1)
  303.  
  304. <:#276,11214>
  305.  
  306. <:#276,11214>
  307.  
  308. <:#276,11214>
  309.  
  310. <:#276,11214>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  311.  
  312. <:#276,11214>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  313.  
  314. <:#276,11214>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)
  315.  
  316. <:#276,11214>define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)
  317.  
  318. <:#276,11214>
  319.  
  320. <:#276,11214>
  321.  
  322. <:#276,11214>
  323.  
  324. <:#276,11214>
  325.  
  326. <:#276,11214>
  327.  
  328. @Function@<:#288,11214><:><:>Function Multiple()
  329.  
  330. <:#276,11214>IF IsNewWave()
  331.  
  332. <:#276,11214>    Message("Macro not available while running under HP NewWave.")
  333.  
  334. <:#276,11214>    Exit Function
  335.  
  336. <:#276,11214>ENDIF
  337.  
  338. <:#276,11214>call closeall.smm()
  339.  
  340. <:#276,11214>X = 1
  341.  
  342. <:#276,11214>AllocGlobalVar("Perm",200)
  343.  
  344. <:#276,11214>SetGlobalArray("Perm",1,1)
  345.  
  346. <:#276,11214>AllocGlobalVar("Time"2) ' This is the Time Global
  347.  
  348. <:#276,11214>SetGlobalArray("time",1,0)
  349.  
  350. <:#276,11214>SetGlobalArray("time",2,0)
  351.  
  352. <:#276,11214>Mac=GetRunningMacroFile$()
  353.  
  354. <:#276,11214>doc=getdocpath$()
  355.  
  356. <:#276,11214>Filledit(9001,"{doc}*.s?m")
  357.  
  358. <:#276,11214>Filledit(60,1)
  359.  
  360. <:#276,11214>SetDlgCallBack(54,"{Mac}!Time")
  361.  
  362. <:#276,11214>SetDlgCallBack(51,"{Mac}!Options")
  363.  
  364. <:#276,11214>Box=dialogbox(".","Select")
  365.  
  366. <:#276,11214>if Box<<<;>1
  367.  
  368. <:#276,11214>    FreeGlobalVar("Time")
  369.  
  370. <:#276,11214>    FreeGlobalVar("Perm")
  371.  
  372. <:#276,11214>    FreeGlobalVar("Temp")
  373.  
  374. <:#276,11214>    Exit Function
  375.  
  376. <:#276,11214>Endif
  377.  
  378. <:#276,11214>Files=GetDialogField$(8001)
  379.  
  380. <:#276,11214>Call Loadfiles(Files)
  381.  
  382. <:#276,11214>Radio1=getdialogfield$(60)
  383.  
  384. <:#276,11214>Radio2=Getdialogfield$(61)
  385.  
  386. <:#276,11214>If {Radio2}
  387.  
  388. <:#276,11214>    hour=GetGlobalArray$("time",1)
  389.  
  390. <:#276,11214>    Minute=GetGlobalArray$("time",2)
  391.  
  392. <:#276,11214>        IF Hour<;>0 or Minute<;>0
  393.  
  394. <:#276,11214>            Runlater("{Mac}!Go","{hour}:{Minute}")
  395.  
  396. <:#276,11214>            message("Printing will begin in {Hour} Hours and {Minute} Minutes")
  397.  
  398. <:#276,11214>        Else
  399.  
  400. <:#276,11214>            Message("No Time Selected...Printing Now!")
  401.  
  402. <:#276,11214>            Call Go()
  403.  
  404. <:#276,11214>        Endif
  405.  
  406. <:#276,11214>Elseif {Radio1}
  407.  
  408. <:#276,11214>    Call Go()
  409.  
  410. <:#276,11214>Endif
  411.  
  412. <:#276,11214>End Function
  413.  
  414. <:#276,11214>
  415.  
  416. <:#276,11214>
  417.  
  418. <:#276,11214>
  419.  
  420. @Function@<:#288,11214><:><:><:><:>Function LoadFiles(Files)
  421.  
  422. <:#276,11214>'SingleStep(1)
  423.  
  424. <:#276,11214>From=1
  425.  
  426. <:#276,11214>Finish=9999
  427.  
  428. <:#276,11214>Flag=1
  429.  
  430. <:#276,11214>Copies=1
  431.  
  432. <:#276,11214>x=1
  433.  
  434. <:#276,11214>dir=getcurrentdir$()
  435.  
  436. <:#276,11214>Total=GetGlobalArray$("Perm",1)
  437.  
  438. <:#276,11214>    Dim LStorage(total)
  439.  
  440. <:#276,11214>        For T=2 to ToTal
  441.  
  442. <:#276,11214>            LStorage(t)=GetGlobalArray$("Perm",t)
  443.  
  444. <:#276,11214>        Next
  445.  
  446. <:#276,11214>While (1)
  447.  
  448. <:#276,11214>        Filename=Strfield$(Files,x," ")
  449.  
  450. <:#276,11214>        if Len(filename)<;>3
  451.  
  452. <:#276,11214>            Found=ArraySearch(&LStorage,Filename,2,"^")
  453.  
  454. <:#276,11214>            IF Found<;>0
  455.  
  456. <:#276,11214>                Temp=LStorage(Found)
  457.  
  458. <:#276,11214>            Else
  459.  
  460. <:#276,11214>        temp="{dir}^{Filename}^{Copies}^{From}^{Finish}^{Flag}"
  461.  
  462. <:#276,11214>            Endif        
  463.  
  464. <:#276,11214>            SetGlobalArray("perm",x+1,Temp)
  465.  
  466. <:#276,11214>            x=x+1
  467.  
  468. <:#276,11214>        Else
  469.  
  470. <:#276,11214>            Break
  471.  
  472. <:#276,11214>        Endif
  473.  
  474. <:#276,11214>Wend
  475.  
  476. <:#276,11214>SetGlobalArray("Perm",1,x)
  477.  
  478. <:#276,11214>End Function
  479.  
  480. <:#276,11214>
  481.  
  482. <:#276,11214>
  483.  
  484. @Function@<:#288,11214><:><:>Function Options(Hdlg,Id,Text)
  485.  
  486. <:#276,11214>Files=GetDlgItemText(Hdlg,8001)
  487.  
  488. <:#276,11214>If Len(files) <<3
  489.  
  490. <:#276,11214>    Message("Please Select Some Files First, Thanks..")
  491.  
  492. <:#276,11214>    Exit Function
  493.  
  494. <:#276,11214>Endif
  495.  
  496. <:#276,11214>
  497.  
  498. <:#276,11214>Call Loadfiles(Files)
  499.  
  500. <:#276,11214>MaxPerm=GetGlobalArray$("Perm",1)
  501.  
  502. <:#276,11214>AllocGlobalVar("Temp",MaxPerm)
  503.  
  504. <:#276,11214>AllocGlobalVar ("Counter",1)
  505.  
  506. <:#276,11214>SetGlobalVar("Counter",2)
  507.  
  508. <:#276,11214>
  509.  
  510. <:#276,11214>For x=2 to Maxperm
  511.  
  512. <:#276,11214>    Data=GetGlobalArray$("Perm",x)
  513.  
  514. <:#276,11214>    SetGlobalArray("temp",x,Data)
  515.  
  516. <:#276,11214>Next    
  517.  
  518. <:#276,11214>Call SetFirst()
  519.  
  520. <:#276,11214>Mac=GetRunningMacroFile$()
  521.  
  522. <:#276,11214>FillEdit(50,1)
  523.  
  524. <:#276,11214>SetDlgCallBack(8000,"{mac}!Numbering")
  525.  
  526. <:#276,11214>SetDlgCallBack(8001,"{MAc}!Numbering")
  527.  
  528. <: